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Ulhat is the COLOUR-COMPILER 

This manual assumes that you Know how to write BASIC programs 
on your Colour-Genie. 

COLOUR-COMPILER is an interactiye comp iler, i. e. the user can 
jump between the ■source code" (your BASIC program) and the 
compiled "object code" (mach i nel anguage) . Though it is very 
simple to change a program and recompile it. 

The process o-f compiling a BASIC program translates your BASIC 
text into machine language. This is equal to the things your 
BASIC interpreter does, but it translates one B^SIC state- 
ment, then executes it. The COLOUR-COMPILER translates the 
whole program, so it is executed much -faster (there is nothing 
to translate anymore). This compilating increases the speed o-f 
your programs 20-200 times. 

*»* IMPORTANT! *** 

COLOUR-COMPILER supports most o-f the BASIC statements given by 
Coloui — BASIC, but some words are not supported. Please read 
this manual to l<now what statements are allowed. 

Programs compiled by COLOUR-COMPILER don't support "active" 
commands like BREAK, CLEAR, LIST, RUN, EDIT, AUTO, CONT , LLIST, 
CLOAD, CSA*^E, VERIFY, RENUM, SYSTEM etc. This means: only you 
possess the source code, which makes it easy to change the 
program, other persons can not change it. 

Al 1 math operat i ons are per -formed as i n tegers , though you can 
only use numbers in the range -from -32768 to 32767. This makes 
programs shorter and much -faster. 

I-f needed, you can simulate real arithmetic using special 
mach i ne 1 anguage subrou t i nes . 

Attention: Some BASIC statements hA>Js di-f-ferent results be-fore 
and a-fter compiling them <See page S> . 
PLEASE READ THIS I^IANUAL CAREFULLY ! ! ! 

COLOUR-COMPILER DOES NOT TEST FOR RUN-TIME-ERRORS. 

Berause o-f this: Test your BASIC program care-fully before 

compiling it. I-f it runs in BASIC it will run after compiling 

i t , too. > 

If COLOUR-COMPILER has to find run-time-errors, your programs 

speed would be decreased and its length increased!! 
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How to break out o-f COLOUR-COMPILER programs 

The <BREAK> key is not tested by your compiled programs. To 
leave a compiled program, insert the following statement in 
your program <in a loop or a-fter an INPUT statement): 

<lineno.> IF PEEK< -1 984>=4 THEN STOP 

1+ the <BREAK> key is pressed, when this line is executed, the 
program will return to the Colour-BASIC READY. 



EXAMPLE: 



10 FOR X=17488 TO 13347:P0KE X,65 
28 IF PEEK(-1984)=4 THEN STOP 
30 NEXT X:END 

At the end of your BASIC program must be an END or STOP state- 
ment to return to READY. If there is no such statement, the 
only way to stop your program is to press both RST keys. This 
may destroy your program! M ! 
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COLOUR-COMPILER commands 

* Please use this manual in connection with your BASIC * 

* re-ference manual . * 



BASIC statement 



Descr i pt i on 



ABS<argument> 
AMD 



ASC<var*> 

BGRD 

CALL hex no. 

CHAR argument 

CHR*<argument> 

CIRCLE X ,y,r 

CLEAR 

CLS 

COLOUR argument 

CPOINT<x,y) 

DATA number , number 

END 

FCLS 

FCOLOUR argument 

FOR 

FILL argument 

FIX< argument) 

FOR 

GOSUB 

GOTO 

INkEY* 



Same as BASIC 

Same as BASIC, but works only as 
maths operator. In IF/THEN statements 
use IF A=B THEN IF B=C THEN ... in- 
stead o+ IF A=B AND B=C THEN ... 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Is ignored by COLOUR-COMPILER (See 
page 1 1 , too) 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC, but strings are not 
al lowed. 

Returns to BASIC'S READY. 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC, but unnecessary 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 



COLOUR-COMPILER Manual 



Supported commands 



Page 6 



INP<argumen t) 

INPUT var,var 
INPUT var* 



INTCargumen t) 
JOY arg. ,di rect i on 
KEYPAD argument 
LEN<yar*) 

LET . 

LGR 

LPRINT 

NBGRD 

NEXT var 

NOT(argumen t> 

NPLOT x,y 

NSHAPE x.y 

ON 60SUB 

ON GOTO 

OR 

OUT arg. ,arg. 
PAINT x,x,f 1 ,-f2 
PEEK< argument) 
PLAY<ch ,oct ,not , amp ) 
PLOT x,y 
POKE arg . , arg . 
post dummy) 
PRINT (PRINT©-) 



Same as BASIC 

Same as BASIC. String INPUT accepts 
all characters including hyphens, 
commas and colons. INPUT A* , B* is not 
a1 1 owed . A number in the range -from 
3276& to 65535 is converted into the 
corresponding negative number: 
(A5536 = -1). Up to 240 characters 
can be entered at one time^ 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC, but LENCA*+B*> is not 
a1 1 OMed 

Same as BASIC <See page 10, too) 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC. In IF/THEN, replace 

IF A=B OR A=C THEN by 

IF A=B THEN ... ELSE IF A-C THEN ... 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BrtSIC 

Same as BASIC 
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RANDOM 

READ var,var 

REM <or ') 

RESTORE 

RETURN 

RND( argument) 

SCALE argument 

S6N<argument) 

SHAPE Xjx 

SOUND x,x 

SQRCargument) 

STEP number 

STOP 

STR*< argument) 

TO 

USR<argument) 

VALCyar*) 

XSHAPE x,y 



Same as BASIC 

Same as BASIC. Strings are not 
al 1 owed 

Same as BASIC, REMs are not compiled 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC, result is integer 

Same as BASIC, variable steps are not 
al 1 owed 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 

Same as BASIC 
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Math operators 

Operator Descr i p t i on 

+ (addi t ion) 1 + 1 » 2 

- (subtraction) 1 - 1 » 

* <mul ti plication) 2*2=4 

/(diviaion) ie/5=2 

precedence o-f the operators: 

/, », +, -, NOT, AND, OR 

(Use parentheses -for other precendences) 

Al 1 math opera t i ons are per -formed i nteger . An ouer-f 1 ow i £ 

i gnored: 

16384 + 16384 = -32768 

32767 is binary 6 1 U 1 1 1 1 U 1 1 1 H 1 
-32763 is binary 1868060308308386 

32767 + 1 = -32768 
65535 = -1 

(see page 3, too) 



COLOUR-COMPILER Manual 



Logical operators 



Page 



IF/THEN ,, VQ 9 J ,c a l., g j perators and conditions 
Operator Descr i pt i on 



IF/THEN 



PI ease change — 
to 



Same as BASIC 

1. AND and OR are not allowed 
-> IF X=i AND Y=2 THEN 286 
•> IF X=l THEN IF Y=2 THEN 288 



PI ease change > 

to > 



IF X=l OR Y==2 THEN 208 

IF X=l THEN 290 ELSE IF Y=2 

THEN 280 



Please change > 

to > 

In BASIC: 
COLOUR-COMPILER 



* WRONG 


* 


* OK 


* 


» OK 


* 


* OK 


* 


» OK 


* 


* OK 


a 


* WRONG 


# 


* OK 


* 



2. Be careful with logical arguments 
IF PEEK(-19S4) AND 64 THEN 200 

IF (PEEK<-19S4>AND64)=^4 THEN 200 

« wrong, everything else = true 
Operators have to be used 

3. Allowed conditions: 
=, >, <, <=, >=, <> 
Not a1 1 owed : 

= > , «<, >< 

4. No math operators in string-IFs: 
IF A*+B*=C* THEN 280 
IF A*=B* THEN 208 
IF A*>B* THEN 280 
IF A*<B* THEN 288 
IF "HELLO"=A* THEN 280 
IF A*="HELLO" THEN 288 
IF INKEY*=rt* THEN 208 
B*=INKEY*:IF A*=B* THEN 280 



ELSE 



Same as BASIC 
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COLOUR-COMPILER and str i nof unc t i ons 

Strings are stored in the following way; 

A**" HELLO" 

A* now uses S bytes -for the text and one termination byte 00H. 

For each string 31 text bytes and one termination byte are 

reserved, but: 

li you don't use B* , A* can use 63 textbytes. 

I-f you don't use B* and C*, A* can use 95 textbytes. 

I-f you don't use B*, C* and D*, A* can use 127 textbytes 

and so on . 

Because oi this memory management, take care while adding 
str i ngs: 

A*-A*+B* * OK * 
A*=B*+A* » WRONG f M » 
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Compilation of BASIC oroorams 

Turn on /our Colour-Genie and press < RETURN > . Insert the tape 
into your recorder, rewind it if necessarx and press PLAY. 
Enter SYSTEM and press <RETURN>. The computer will print a 
'»?' and the blinking cursor. Now enter C and press <RETURN> 
again. When the ccMnputer has loaded the whole program, another 
'*?' will appear. Now enter '/^ and press <RETURN>. The screen 
will be cleared and the computer will print: 

TCe-COLOUR-BAS I C-COMP I LER 
COPYRIGHT <C) 1962 BY TC6 

START COMPILATION WITH "NAME" 
<0R PRESS "F3"> 

Now you can 1 oad and test your BASI C programs without affecting 
the compiler. ATTENTION: The compiler will leave 9 kbytes of 
memory for your programs, longer programs will cause an Out of 
Memory Error to appear. 

I f your programs produces no errors wh ile running under the 
BASIC interpreter (use a DEFINT a-z at the beginning of your 
program to ensure that the results are the same as the results 
of the compiled version) and you are sure that you haven-'t used 
any prohibited ccnwnands (see page 5 ff.> you may compile it!! 

* Is a 'BREAK' in your program? IF PEEK< -1 934>=4 THEN STOP * 

Save your BASI C program on tape ! 



In order to compile your program enter NAME and press <RETURN> 

or si mp !y press the <F3> key. 

The COLOUR-COMPILER now translates your BASIC program into 

machine language, this will take a few seconds. 

If the COLOUR-COMPILER finds any errors during compilation, it 

will generate an errormessage and return to BASI Cs READY . 

If there are no errors found, the COLOUR-COMPILER will print 

the following message: 

CS) START COMPILED PROGRAM 

(B) BACK TO BASIC 

<T) SAUE COMPILED PROGRAM ON TAPE 

Now press the 'S' V.^y to start your program, the 'B' key to 
return to BASICs READY or the '1' key to save the compiled 
version of your program on tape. The computer wi 1 1 ask you for 
the name of your program. Enter maximal 6 characters, the first 
has to be a letter, the others letters or numbers . Then the 
following message appears: 

*** READY TAPE ***. Insert a tape in your recorder, wind it to 
the right position and press PLAY and RECORD. Now press the 
<RETURN> key- When your program has been saved, the COLOUR- 
COMPI LER returns to the main menue . 

To load a compiled program, enter SYSTEM < RETURN > , then enter 
the corresponding filename and press (RETURN/, 
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No BASIC program in memory 

Reasons: 

The compiler has been started when there is no 
BASIC program in the memory. 

Syntax error in line xxxxx; 
Reasons: 



Examp I es: 



The compiler can't understand a word 



le PRUNT X 

10 X=(Y+)2-l>)) 

10 X=" HALLO" 

le X*«5*l 

le X=l+ 

2 : REM No 1 ine+eeds! ! ! f ! ! 
18 x=»5*2 : REM No lowercase letters !!!! 
10 Xs«5+1 ! REM Seems to be ok, but there's a 

backspace hidden. 
10 RLM : REM Not allowed statement 



Illegal FOR/NEXT nesting in line xxxxx : 

Reasons; 

FOR wi thout NEXT 

NEXT without FOR 

NEXT without variable: FOR X=l TO 10:NEXT <-- X!! 

II legal use of STEP: ^ 

Please change > FOR X=l TO 1© STEP Z 

to > FOR .=' TO 10 STEP 5 

There must be one and only one NEXT for each FOR: 

Please change > 10 FOR X=l TO 18: IF X=9 THEN 

NEXT X 
20 NEXT X 

to > 10 FOR X=l TO 10: IF X=9 THEN 

20 
20 NEXT X 



Undef i ned lineno. in line xxxxx: 
Reasons: 



A lineno. in Pass 2: 

10 GOTO 

20 STOP 
causes an 'Undefined lineno. in line 16" 

If a lineno. doesn' t exist, the error i= listed 
with a wrong lineno. in pa=s 3: 

10 GOTO 50 

20 STOP 
causes an 'Undefined lineno. in line 4 

Check all THENs, ELSEs , ON GOTOs and ON GOSUBs for 
m I ss i ng or wrong 1 i ne numbers . A good way to do this 
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is to renumber your program using the RENUM command 

Wrong variable in line xxxxx; 

Reasons: 

A variable named other than A-Z , Al-Zl, A2-Z2 or 

A*-Z* . 

Using A instead o-f A^ or A^ instead o-f R. 



Out o-f memory in I i ne xxxxx: 
Reasons: 



Your BASIC program is too long. 

Try the -following methods to shorten rt; 

1. Shorten texts <1 byte per character) 

2. Use more subroutines 

3. Delete useless lines of your program 



The compiler doesn't test +or any errors after compiling your 
program. We recommend to save your program before c^np i 1 i ng 
it. Be careful in using POKE. Be sure, where you POKE I ! 
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Var i abl e A*-Z* A-Z Al-Zl A2-Z2 



A 


30720 


31552 


31616 


31630 


B 


30752 


31554 


31613 


31682 


C 


30784 


31556 


31620 


31634 


D 


30816 


31558 


31622 


31686 


E 


30848 


31560 


31624 


31688 


F 


30880 


31562 


31626 


31690 


G 


30912 


31564 


31628 


31692 


H 


30944 


31566 


31630 


31694 


I 


3097<i 


31568 


31632 


31696 


J 


31008 


31570 


31634 


31698 


K 


31040 


31572 


31636 


31700 


L 


31072 


31574 


31638 


31702 


M 


31104 


31576 


31640 


31704 


N 


3U36 


31578 


31642 


31706 





3U68 


31580 


31644 


31708 


P 


31200 


31582 


31646 


31710 


Q 


31232 


31584 


31648 


31712 


R 


31264 


31586 


31650 


31714 


S 


31296 


31588 


31652 


31716 


T 


31328 


31590 


31654 


3171S 


U 


31360 


31592 


31656 


31720 


V 


31392 


31594 


31658 


31722 


W 


31424 


31596 


31660 


31724 


X 


31456 


31598 


31662 


31726 


Y 


31488 


31603 


31664 


31728 


Z 


31520 


31602 


31 666 


51730 
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BFFFH 

^seeH 

3e09H 
7C0dH 
7640 H 
783eH 
7700H 
760 0H 

580 0H 
40eeH 



Col our-Comp i 1 er 


Shape-Tabl e 


BASIC program 


Hi 1 -f sprogramme 


Integer-'v'ar i abl en 


Str i ng-'s-'ar i abl en 


Inpu tbu + -f er 


Stack 


Compiled program 


Communication area 



High memory 32 K 



High memory 16 K 



COLOUR-COMPILER Manual Other in-formation Page 16 



1. Don't add str i ngvar i abl es to itself: 

A*=A*+B* * OK * 
A*=8*+A* * WRONG » 

2. AND/OR/NOT are not allowed in IF/THEN statements 

3. CLEAR, DEFINT and REM are ignored by the compiler 

4. lNPUT"text" jyar does not work. Use PRINT" tex t ";: INPUT var 
i nstead 

5. INPUT A*,B* does not work. B* is ignored. 

6. INPUT var* accepts all characters. 

7. READ A* or DftTA "TEST" are not allowed! 

8. yari ablenames are: A-Z , At -2 1, A2-22 and A*-Z* . All numbers 
are integer 

9. G^ ERROR GOTO is not allowed 

10. USR(X> passes the value oi X to the HL register. It's not 
necessary to call special ROM routines to do this. 

11. yARPTR is not supported. Use the given variable addresses 

12. Use INT(argumen t > to ensure that BASIC produces the same 
result as the compiled program 

13. All numbers are stored as two bytes. The -first address 
contains the rema i nder of the di v i s i on by 256 , the second 
address contains the quotient. 

14. All strings are stored as characters followed by a byte 
QQH. Each string may be 31 characters long. If you only use 
A*, it can consist of up to 831 characters! If you don't 
use B*, C* and D* , A* can be up to 127 characters long! 

15. The inputbuffer can contain up to 240 bytes. 

16. Errors occuring in pass 3 don't tell you the right Mneno. 

17. If you don't use some string variables you store little 
machine language routines at this addresses. 

18. Entering numbers bigger than 31767 produces negative 
numbers: 32768 produces -32768, 65535 produces -1!!! 

19. In order to input fl oat i ng-po i n t -numbers , use the following 
tr icK : 

10 INPUT X,Y 

If you enter 1234.56789, 1234 is assigned to K and 56789 is 

assi oned to Y. 
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A-fter calling this subroutine B* equals LEFT*(A*,X) 

9000 REM Ml is the address o+ A*: 30720 

9010 REM M2 is the address oi- Bt; 30752 

9020 L=»:LEN(A*> : IF L<X THEN B*=A*:RETURN 

9030 B*^'''"; FOR 1=0 TO X-1 s POKE M2+ 1 ,PEEKCM1 + 1 > :NEXT I: POKE 

M2+1 ,0:RETURN 

*#*«#««»«•»«•»««««««»#««# RI GHT^( A^ fX> ««*«#-»«M*«»*«^«#«#4^'K'i(«^#«« 
After calling this subroutine B* equals RIGHT*( A*,X:i 

9000 REM Ml and M2 see aboye 

9010 L=LEN(A*> : IF L<X THEN B*=A*:RETURN 

9020 B*="": FOR 1=0 TO L-X : POKE M2+ I ,PEEK(M1 +L-X+ I ) : NEXT I: 

POKE M2+I ,8!RETURN 

*********************** MI D*( A* ,X , Y) ************************** 
After calling this subroutine B* equals MID*CA*,X,Y) 

9000 REM Ml and M2 see above 

9010 L=LEN<A*): IF L<X+Y THEN B*=!A* : RETURN 

9020 B**""!FOR I«Y TO Y+X: POKE M2+ I -Y , PEEKCMl + I > :NEXT I : POKE 

M2+ I -Y,0: RETURN 

*********************** STRING* <X ,Y) *************»*»*******#** 
After calling the subroutine A* equals STRING*(X,Y) 

9000 REM X=Length, Y=ASCII code, M=Address of A* <30720> 
9010 FOR 1=0 TO X-1 : POKE M+I,Y:NEXT I J POKE M+ 1,0: RETURN 

***************** one-dimensi onal array *********************** 
One-byte array with 109 elements 

9000 REM E=array index, X=value to store 

9005 REM ^/'=value found, M=start of array 

9010 IF E<0 THEN RETURN ELSE IF E>100 THEN RETURN 

9020 y^PEEKCM+E) 

9030 POKE M+E,X 

9040 RETURN 

***************** two~di mensi onal array *********************** 
One-byte array with 29 * 28 elements 

9000 REM M=start of array, X=first dimension index, Y=£econd 

9005 REM dimension index, 2=ya] ue to store, *v'=val ue found 

9010 IF X>20 THEN RETURN ELSE IF r>20 THEN RETURN ELSE IF X<0 

THEN RETURN ELSE IF Y<0 THEN RETURN 

9020 U=PEEK(M+X+Y*20> 

9030 POKE M+X+Y*20,2 

9040 RETURN 

********************** Cosi ne or Si ne +**■♦'********************* 
This program computes 1000 * SINCX) or 1000 * COSCX> 

5 DEFINT A-Z 

10 PRINT-'ANGLE" ; iINPUTX 

11 IF PEEK<-19S4^=4 THEN STOP 
15 Z=X:GOSUB 9010 
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20 PRINT "SIN<X>»l09e =" jX 

25 X=2;G0SUB 9885 

27 PRINT "COS(X>*10ee «" ;X 

30 GOTO 10 

9005 X=X+90 

9007 IF X>359 THEN X=X-360 : GOTO 9007 

9010 3=1: IF X>179 THEN X=X-180:S=-1 

9030 IF X>89 THEN X=180-X 

9040 IF X>45 THEN 9030 

9058 X'=174*X/10!R=>X^'10 

9060 X=X-R*R/200*R/30+R*R/200*R/100*R/250*R/248 

9070 X=X*S: RETURN 

9080 X=90-X 

9090 X=174*X/10:R=X/18 

9108 X=1000-R*R/20+R*R/200*R/10*R/120 

9110 X=X-R*R/200*R/108*R/250*R/200*R/720 

9120 X=X*S:RETURN 



